5 POKE45,124:POKE46,66:POKE47,124:POKE48,66:POKE49,124:POKE50,66
10 AN$="000":EN$="000":CA$="000":POKE775,200:POKE788,52:POKE808,225
50 PRINT"[147]":POKE53280,0:POKE53281,15:POKE53270,7:POKE53265,23:REM TSP
51 A$(1)="[151][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
52 DIMN$(19,17):DIMZA$(500),ZB$(500):UN=0
61 GOTO1000
90 PRINT"[147]":GOSUB100:GOTO150:A$=""
100 PRINT"[151]TSP[160]VIDEO[160]MASTER[160]V2.0[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
105 PRINT"[151][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
110 IFAN=0THENA$="18":GOTO130
111 A=18-AN:IFA<10THENA$="0":A$=A$+RIGHT$(STR$(A),1):GOTO130
112 A$=RIGHT$(STR$(A),2)
130 PRINT""SPC(24)A$;""CA$;""AN$;"-"EN$:RETURN
150 GETA$:IFA$=""THEN150
151 IFA$="[160]"THENTE=1:GOTO200
199 GOTO150
200 PRINT"[151]INFO[160]PROJECTS[160]DISK[160]REGISTER[160]EXIT[160][160][160][160][160][160]"
201 FORX=1TO8:PRINT"                                       ":NEXT
300 ONTEGOTO310,400,500,3900,600
310 PRINT"INFO":PRINT"[151][207]\\\\\\\\\\\\\\\\\\\\\\\\\\[208]
311 [153]"&WRITTENCLOSEBYCLOSETHORSTENCLOSELUSZEKTHEN
312 PRINT"&[209][160]1993[160]BY[160]MAGIC[160]DISK[160]64[160][160][160][167]
313 [153]"&CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN
314 PRINT"&VERSION[160]2.0[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
315 [153]"(null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOSQR
320 GOTO700
400 PRINT"PROJECTS[151]":GOSUB401:GOTO410
401 PRINT"[151][207]\\\\\\\\\\\\\\\\[208]
402 [153]"&CASSETTECLOSEANSEHENTHEN
403 PRINT"&FILME[160]ANSEHEN[160][160][160][167]
404 [153]"&EINGEBENCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN
405 PRINT"&SUCHEN[160][160][160][160][160][160][160][160][160][160][167]
407 [153]"(null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOSQR":[142]
410 [153]""[166]6)"CASSETTEPOKECLOSEANSEHEN":TU[178]1:LA[178]4:[137]700
500 [153]""[166]14)"DISKPOKE":[141]501:[137]511
501 [153]"POKE"[166]14)"(null)\\\\\\\\\\\\(null)
502 PRINTSPC(14)"&GENERATOR[160][160][160][167]
503 [153][166]14)"&LOADCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN
504 PRINTSPC(14)"&SAVE[160][160][160][160][160][160][160][160][167]
505 [139]AS[178]0[167][153][166]14)"&AUTOCLOSESAVECLOSECLOSECLOSETHEN":[137]507
506 [153][166]14)"&AUTOCLOSESAVECLOSECLOSE*THEN
507 PRINTSPC(14)"&SAVE[160]TITEL[160][160][167]
508 [153][166]14)"&INITIALIZECLOSECLOSETHEN
509 PRINTSPC(14)"[204][164][164][164][164][164][164][164][164][164][164][164][164][186]
510 [142]
511 [153]""[166]15)"GENERATOR":TU[178]1:LA[178]6:[137]700
600 [153]""[166]28)"EXITPOKE":[141]601:[137]611
601 [153]""[166]28)"POKE(null)\\\\\(null)
602 PRINTSPC(28)"&-----[151][167]
603 [153][166]28)"&RESETPOKETHEN
606 PRINTSPC(28)"[204][164][164][164][164][164][186]
610 [142]
611 [153]""[166]29)"-----":LA[178]2:TU[178]1:[137]700
700 [161]A$:[139]A$[178]""[167]700
701 [139]A$[178]"CMD"[167]710
702 [139]A$[178]""[167]720
703 [139]A$[178]""[167]730
704 [139]A$[178]"ON"[167]740
705 [139]A$[178][199](13)[167]760
706 [137]700
710 [139]TE[178]1[167]700
711 TE[178]TE[171]1:[137]200
720 [139]TE[178]5[167]700
721 TE[178]TE[170]1:[137]200
730 [139]TU[178]LA[167]700
731 TU[178]TU[170]1:[137]750
740 [139]TU[178]1[167]700
741 TU[178]TU[171]1:[137]750
750 [145]TE[137]700,810,800,840,850
760 [145]TE[137]90,940,920,4000,930
800 [141]501:[153]"":[145]TU[137]801,802,803,804,806,807
801 [153][166]15)"GENERATOR":[137]700
802 [153][166]15)"LOAD":[137]700
803 [153][166]15)"SAVE":[137]700
804 [139]AS[178]0[167][153][166]15)"AUTOPOKECLOSESAVEPOKECLOSECLOSE":[137]700
805 [153][166]15)"AUTOPOKECLOSESAVEPOKECLOSECLOSE*":[137]700
806 [153][166]15)"SAVECLOSETITEL":[137]700
807 [153][166]15)"INITIALIZE":[137]700
810 [141]401:[153]"":[145]TU[137]811,812,813,814
811 [153][166]6)"CASSETTEPOKECLOSEANSEHEN":[137]700
812 [153][166]6)"FILMEPOKECLOSEANSEHEN":[137]700
813 [153][166]6)"EINGEBEN":[137]700
814 [153][166]6)"SUCHEN":[137]700
820 [141]3010:[153]"":[145]TU[137]821,822,823,824,825,826,827,829,830,831,832
821 [153]"TITEL":[137]3050
822 [153]"UNTERTITEL":[137]3050
823 [153]"GENRE":[137]3050
824 [153]"JAHR":[137]3050
825 [153]"DARSTELLER":[137]3050
826 [153]"REGIE":[137]3050
827 [153]"FSK":[137]3050
829 [153]"RESTCLOSE(GROESSER)":[137]3050
830 [153]"RESTCLOSE(GLEICH)":[137]3050
831 [153]"TITELCLOSE(REGISTER)":[137]3050
832 [153]"AUSGANG":[137]3050
840 [141]3901:[153]"":[145]TU[137]841,842,843
841 [153][166]20)"TITELCLOSECOPIEREN":[137]700
842 [153][166]20)"TITELCLOSETAUSCHEN":[137]700
843 [153][166]20)"TITELCLOSEANSEHEN":[137]700
850 [141]601:[153]"":[145]TU[137]851,852
851 [153][166]29)"-----":[137]700
852 [153][166]29)"RESET":[137]700
920 [145]TU[137]1200,923,921,1540,3800,1500
921 [137]925
922 A$[178]"ESCLOSEBEFINDETCLOSESICHCLOSEKEINECLOSECASSETTECLOSEIMCLOSESPEICHERCLOSE!!!":[141]2000:[137]90
923 [139]II[178]1[167]1400
924 A$[178]"ESCLOSEWURDECLOSEKEINECLOSEDISKETTECLOSEINITIALISIERTCLOSE!!!":[141]2000:[137]90
925 [139]CL[178]0[167]922
926 [139]AN[178]0[167]1550
927 [137]1520
930 [139]TU[178]1[167]700
939 [151]53265,0:[158]64738
940 [145]TU[137]941,941,950,960
941 [139]CL[178]1[175]AN[177]0[167]1580
942 [139]CL[178]0[167]944
943 [139]AN[178]0[167]945
944 A$[178]"ESCLOSEBEFINDETCLOSESICHCLOSEKEINECLOSECASSETTECLOSEIMCLOSESPEICHERCLOSE!!!":[141]2000:[137]90
945 A$[178]"ESCLOSEBEFINDETCLOSESICHCLOSEKEINCLOSEFILMCLOSEAUFCLOSEDERCLOSECASSETTECLOSE!!!":[141]2000:[137]90
950 [139]AN[178]18[167]952
951 [139]CL[178]0[167]944
952 [137]1700
953 A$[178]"ESCLOSEBEFINDENCLOSESICHCLOSEBEREITSCLOSE18CLOSEFILMECLOSEIMCLOSESPEICHER !!!":[141]2000:[137]90
960 [139]II[178]1[167]3000
961 [137]924
1000 [153]"LOAD":[139]C[178]0[167]1100
1010 [161]A$:[139]A$[178]""[167]1010
1012 [139][198](A$)[179]65[176][198](A$)[177]90[167]1010
1013 B$[178]B$[170]A$:A[178]A[170]1:[139]A[178]6[175]B$[178]C$[167]1100
1014 [139]A[178]6[175]B$[179][177]C$[167][144]
1020 [137]1010
1100 [153]"POKE(null)\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\(null)
1101 PRINT"&WILKOMMEN[160]ZUM[160]VIDEO[160]MASTER[160]!!![167]
1102 [153]"(null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOSQR
1110 FORX=1TO1000:NEXTX:GOTO90
1200 GOSUB100:B$="":B=0
1210 PRINT"[207]\\\\\\\\\\\\\\\\\\\\\\\\[208]
1211 [153]"&CLOSECLOSEDATENCLOSEDISKCLOSEGENERATORCLOSECLOSETHEN
1212 PRINT"&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
1213 [153]"&CASSETTENCLOSEANFANGCLOSE?CLOSECLOSECLOSECLOSECLOSECLOSETHEN
1214 PRINT"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]
1220 [153]""[166]25)B$"+POKE"
1230 [161]A$:[139]A$[178]""[167]1230
1231 [139]A$[178][199](20)[167]1200
1232 [139]A$[178][199](13)[175]B[177]0[167]1240
1233 [139]A$[178]"_"[167]90
1234 [139]B[178]3[167]1230
1235 [139][198](A$)[179]48[176][198](A$)[177]57[167]1230
1236 B$[178]B$[170]A$:B[178]B[170]1:[137]1220
1240 A$[178]"LEGENCLOSESIECLOSEEINECLOSEFORMATIERTECLOSEDISKETTECLOSEEINCLOSEUNDCLOSEDRUECKENCLOSESIECLOSERETURN."
1242 [141]2000
1250 [139]E$[178]"_"[167]90
1300 CA$[178]B$:AN$[178]B$:A[178][197](B$)[170]99:EN$[178][201]([196](A),[195]([196](A))[171]1)
1320 [159]15,8,15,"N:VIDEO-ARCHIV"[170][199](0)[170][199](0)[170][199](0):[160]15
1321 [159]1,8,9,"DISK,S,W":[152]1,CA$",":[152]1,EN$",":[160]1
1350 [141]100
1355 A[178][197](AN$):B[178][197](EN$):E$[178]"LEER"
1360 [129]X[178]A[164]B
1361 [139]X[179]10[167]CA$[178]"00":CA$[178]CA$[170][201]([196](X),[195]([196](X))[171]1):[137]1370
1362 [139]X[179]100[167]CA$[178]"0":CA$[178]CA$[170][201]([196](X),[195]([196](X))[171]1):[137]1370
1363 [139]X[179]1000[167]CA$[178][201]([196](X),[195]([196](X))[171]1)
1370 [141]100:[159]1,8,9,CA$[170]",S,W
1371 PRINT#1,E$",":CLOSE1:NEXTX:CA$="000":GOTO90
1400 GOSUB100:B$="":B=0
1410 PRINT"[207]\\\\\\\\\\\\\\\\\\\\\\\\[208]
1413 [153]"&CASSETTECLOSE?CLOSE---CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN
1414 PRINT"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]
1420 [153]""[166]17)B$"+POKE"
1430 [161]A$:[139]A$[178]""[167]1430
1431 [139]A$[178][199](20)[167]1400
1432 [139]A$[178][199](13)[175]B[178]3[167]1440
1433 [139]A$[178]"_"[167]90
1434 [139]B[178]3[167]1430
1435 [139][198](A$)[179]48[176][198](A$)[177]57[167]1430
1436 B$[178]B$[170]A$:B[178]B[170]1:[137]1420
1440 [160]1:AN[178]0:AN(1)[178]0:[129]X[178]1[164]18:[129]Y[178]1[164]17:N$(X,Y)[178]"":[130]Y:[130]X
1460 [159]1,8,9,B$[170]",S,R
1461 INPUT#1,A$:IFA$="LEER"THENCLOSE1:GOTO1480
1470 INPUT#1,AN:FORX=1TOAN:FORY=1TO17:INPUT#1,N$(X,Y):NEXTY:NEXTX:CLOSE1
1471 CL=1:CA$=B$:GOTO90
1480 CL=1:AN=0:CA$=B$:GOTO90
1500 A$="LEGEN[160]SIE[160]EINE[160]DATEN[160]DISKETTE[160]EIN[160]UND[160]DRUECKEN[160]SIE[160]RETURN."
1501 GOSUB2000
1502 IFE$="_"THEN90
1505 OPEN1,8,9,"DISK,S,R":CLOSE1:OPEN15,8,15:INPUT#15,A:CLOSE15:IFA<>0THEN1500
1510 OPEN1,8,9,"DISK,S,R":INPUT#1,AN$:INPUT#1,EN$:CLOSE1:CA$="000":II=1
1511 OPEN1,8,9,"TITEL REGISTER,S,R":CLOSE1:OPEN15,8,15:INPUT#15,A:CLOSE15
1512 IFA<>0THEN90
1513 OPEN1,8,9,"TITEL REGISTER,S,R
1514 [132]1,UN:[129]X[178]1[164]UN
1515 [132]1,ZA$(X):[132]1,ZB$(X):[130]X:[160]1:[137]90
1520 [159]1,8,9,"@:"[170]CA$[170]",S,W
1521 A$="VOLL":PRINT#1,A$",":PRINT#1,AN",":FORX=1TOAN:FORY=1TO17
1522 PRINT#1,N$(X,Y):NEXTY:NEXTX:CLOSE1
1523 GOTO90
1540 IFAS=0THENAS=1:GOTO800
1541 AS=0:GOTO800
1550 OPEN1,8,9,"@:"+CA$+",S,W
1551 A$[178]"LEER":[152]1,A$",":[160]1:[137]90
1580 [145]TU[137]1600,1581
1581 Y[178]1:[137]2400
1600 [141]100:[153]"POKE(null)\\\\\\\\\\\\\\\\\\\\\(null)":[129]X[178]1[164]AN
1601 [153]"&CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN":[153]"ON"N$(X,2):[130]X
1602 [153]"(null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOSQR
1610 A$="DRUECKE[160]RETURN":GOSUB2000
1615 GOTO90
1700 AN=AN+1:GOSUB100
1710 FORY=2TO16:N$(AN,Y)="":NEXTY:B$="":X=0:LA=3:S=15:GOSUB1800:GOTO1840
1800 PRINT"[151][207]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\[208]"
1801 PRINT"&CASS.:[160][160][160][160]TYP:[160][160][160][160][160]RESTZEIT:[160][160][160][160]MIN.[167]
1802 [153]"&CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN
1803 PRINT"&TITEL[160][160][160][160][160][160]:[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
1804 [153]"&UNTERTITELCLOSE:CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN
1805 PRINT"&FILM[160]ART[160][160][160]:[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
1806 [153]"&LAUFZEITCLOSECLOSECLOSE:CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN
1807 PRINT"&POSITION[160][160][160]:[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
1808 [153]"&KINOSTARTCLOSECLOSE:CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN
1809 PRINT"&DARSTELLER[160]:[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
1810 [153]"&CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN
1811 PRINT"&REGIE[160][160][160][160][160][160]:[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
1812 [153]"&FSKCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE:CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN
1813 PRINT"&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
1814 [153]"&BEMERKUNGEN:CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN
1815 PRINT"&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
1816 [153]"&CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN
1817 PRINT"&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
1818 [153]"&CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN
1819 PRINT"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]
1830 [153]""CA$:[142]
1840 [139]AN[178]1[175]AN(1)[178]0[167]A[178]0:X[178]1:[137]1905
1845 B$[178]"":LA[178]21:S[178]14:[129]X[178]2[164]AN:N$(X,17)[178]N$(1,17):N$(X,1)[178]N$(1,1):[130]X
1850 [153]""[166]15)N$(1,1):[153]""[166]29)N$(1,17)
1900 [129]X[178]2[164]16:A[178]0
1901 [139]AN[178]19[167]A[178][195](N$(ZZ,X)):N$(AN,X)[178]N$(ZZ,X)
1905 [153]B$""[166]S)N$(AN,X)"+CLOSE";
1910 [161]A$:[139]A$[178]""[167]1910
1915 [139]A$[178][199](20)[175]A[177]0[167]1950
1916 [139]A$[178][199](13)[175]A[177]0[167]1960
1917 [139]A$[178]"_"[175]AN[179][177]19[175]X[178]2[167]AN[178]AN[171]1:[137]1935
1920 [139]A[178]LA[167]1910
1930 [139][198](A$)[177]64[175][198](A$)[179]91[167]1940
1931 [139][198](A$)[177]47[175][198](A$)[179]58[167]1940
1932 [139]A$[178]" "[167]A$[178]"CLOSE":[137]1940
1933 [139]A$[178]"-"[176]A$[178]"."[176]A$[178]"'"[167]1940
1934 [137]1910
1935 [139]AN[178]0[167]AN(1)[178]0:N$(1,1)[178]"":[137]90
1936 [137]90
1940 A[178]A[170]1:N$(AN,X)[178]N$(AN,X)[170]A$:[137]1905
1950 [139]X[178]1[167]A[178]0:N$(AN,X)[178]"":[153]B$[166]S)"POKECLOSECLOSECLOSECLOSE":[137]1905
1951 A[178]A[171]1:N$(AN,X)[178][200](N$(AN,X),A):  [137]1905
1960 [139]X[178]1[167][153]"CMDCMDPOKECLOSE":S[178]14:B$[178]B$[170]"":LA[178]21:[141]2200:[137]1900
1965 [153]"CMDCMDPOKECLOSE"
1970 [139]X[178]2[176]X[178]3[176]X[178]7[176]X[178]8[176]X[178]9[176]X[178]10[176]X[178]11[176]X[178]12[176]X[178]13[176]X[178]14[176]X[178]15[167]LA[178]21
1971 [139]X[178]4[167]LA[178]3
1972 [139]X[178]5[167]LA[178]11:[137]1990
1973 [139]X[178]6[167]LA[178]4
1974 [139]X[178]10[167]LA[178]2
1980 B$[178]B$[170]""
1981 [139]X[178]11[167]B$[178]B$[170]""
1982 [130]X:[137]2300
1990 [139]AN[177]1[167]1995
1991 B[178][197](N$(AN,1)):C[178][197](N$(AN,5)):D[178]B[171]C
1992 N$(AN,17)[178][201]([196](D),[195]([196](D))[171]1):[137]2100
1995 B[178][197](N$(AN,17)):C[178][197](N$(AN,5)):D[178]B[171]C
1996 N$(AN,17)[178][201]([196](D),[195]([196](D))[171]1):[129]Y[178]1[164]AN:N$(Y,17)[178]N$(AN,17)
1997 [130]Y:[137]2100
2000 C$[178]"":D$[178]A$(1)[170]A$[170]A$(1)
2005 [129]X[178]1[164][195](D$):[153]C$;[202](D$,X,39)"
2010 GETE$:IFE$=""THENFORA=1TO40:NEXTA:NEXTX:GOTO2000
2011 IFE$<>"_"ANDE$<>CHR$(13)THEN2010
2015 PRINT"[151][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
2020 RETURN
2050 C$="[151]":D$=A$(1)+A$
2055 FORX=1TOLEN(D$):PRINTC$;MID$(D$,X,39)"
2060 [161]E$:[139]E$[178]""[167][129]A[178]1[164]40:[130]A:[130]X:[137]2055
2061 [139]E$[178]"_"[176]E$[178]"LET"[167]90
2062 [139]E$[178]"INPUT"[175]AN[178]Y[167]2060
2063 [139]E$[178]"DIM"[175]Y[178]1[167]2060
2065 [153]"POKECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE"
2070 [142]
2100 [153]""[166]29)"POKECLOSECLOSECLOSE":[153]""[166]29)N$(AN,17):[137]1980
2200 N$(AN,17)[178]N$(AN,1)
2202 [153]""[166]29)"POKECLOSECLOSECLOSE":[153]""[166]29)N$(AN,17):[142]
2300 [139]AS[178]0[175]AN(1)[178]0[167]90
2301 [139]AN(1)[178]0[167]1520
2305 AN[178]AN(1):Y[178]AN(2):[129]X[178]1[164]17:N$(Y,X)[178]N$(19,X):[130]X:AN(1)[178]0:[137]2400
2306 [139]AS[178]0[167]2400
2310 [137]1520
2400 [141]100:[141]1800:[153]""[166]15)N$(1,1):[153]""[166]29)N$(1,17)
2410 [153]""
2420 [129]X[178]2[164]4:[153][166]14)N$(Y,X):[130]X:[153][166]14)N$(Y,5)"CLOSEPOKEMINUTEN
2425 FORX=6TO11:PRINTSPC(14)N$(Y,X):NEXTX:PRINT
2430 FORX=12TO16:PRINTSPC(14)N$(Y,X):NEXTX
2440 A$="F1:VOR[160][160][160]F3:ZURUECK[160][160][160]F5:AENDERN[160][160][160]F7:AUSGANG[160][160][160]"
2441 A$=A$+"F8:LOESCHEN[160]":GOSUB2050
2450 IFE$="[133]"THENY=Y+1:GOTO2400
2451 IFE$="[134]"THENY=Y-1:GOTO2400
2460 IFE$="[135]"THENAN(1)=AN:AN=19:AN(2)=Y:GOTO2500
2461 IFE$="[140]"THEN2550
2462 GOTO90
2500 A=VAL(N$(1,17)):B=VAL(N$(Y,5)):A=A+B
2501 FORX=1TOAN:N$(X,17)=RIGHT$(STR$(A),LEN(STR$(A))-1):ZZ=Y:GOTO1710
2550 IFAN=1THENAN=0:N$(1,1)="":AN(1)=0:GOTO2300
2560 A=VAL(N$(1,17)):B=VAL(N$(Y,5)):A=A+B
2561 FORX=1TOAN:N$(X,17)=RIGHT$(STR$(A),LEN(STR$(A))-1)
2565 IFY=ANTHENAN=AN-1:Y=1:GOTO2400
2570 FORX=YTOAN:FORZ=1TO16
2575 N$(X,Z)=N$(X+1,Z):NEXTZ:NEXTX:AN=AN-1:GOTO2400
3000 E$="":PRINT"[151][160][160][160][160][160]SUCHE[151][160]NACH[151][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":GOSUB3010:GOTO3030
3010 PRINT"[151][207]\\\\\\\\\\\\\\\\[208] "
3011 PRINT"[151]&TITEL[160][160][160][160][160][160][160][160][160][160][160][167] "
3012 PRINT"[151]&UNTERTITEL[160][160][160][160][160][160][167] "
3013 PRINT"[151]&GENRE[160][160][160][160][160][160][160][160][160][160][160][167] "
3014 PRINT"[151]&JAHR[160][160][160][160][160][160][160][160][160][160][160][160][167] "
3015 PRINT"[151]&DARSTELLER[160][160][160][160][160][160][167] "
3016 PRINT"[151]&REGIE[160][160][160][160][160][160][160][160][160][160][160][167] "
3017 PRINT"[151]&FSK[160][160][160][160][160][160][160][160][160][160][160][160][160][167]
3019 [153]"&RESTCLOSE(GROESSER)CLOSETHEN
3020 PRINT"&REST[160](GLEICH)[160][160][160][167]
3021 [153]"&TITELCLOSE(REGISTER)THEN
3022 PRINT"&AUSGANG[160][160][160][160][160][160][160][160][160][167]
3023 [153]"(null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOSQR":[142]
3030 [153]"TITEL":TU[178]1:LA[178]11
3050 [161]A$:[139]A$[178]""[167]3050
3051 [139]A$[178]""[167]3070
3052 [139]A$[178]"ON"[167]3080
3053 [139]A$[178][199](13)[167]3090
3060 [137]3050
3070 [139]TU[178]LA[167]3050
3071 TU[178]TU[170]1:[137]820
3080 [139]TU[178]1[167]3050
3081 TU[178]TU[171]1:[137]820
3090 [139]TU[178]11[167]90
3100 [153]"POKE
3101 PRINT"[207]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\[208]
3102 [153]"&SUCHBEGRIFF:CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN
3103 PRINT"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]
3110 [153]""[166]13)E$"+CLOSE";
3120 [161]A$:[139]A$[178]""[167]3120
3130 [139]A$[178]"_"[167]90
3135 [139]A$[178][199](13)[175][195](E$)[177]0[167]3180
3136 [139]A$[178][199](20)[175][195](E$)[177]0[167]3170
3140 [139][195](E$)[178]21[167]3120
3145 [139][198](A$)[177]64[175][198](A$)[179]91[167]3160
3146 [139][198](A$)[177]47[175][198](A$)[179]58[167]3160
3147 [139]A$[178]" "[167]A$[178]"CLOSE":[137]3160
3148 [139]A$[178]"-"[167]3160
3150 [137]3120
3160 E$[178]E$[170]A$:[137]3110
3170 E$[178][200](E$,[195](E$)[171]1):[137]3110
3180 [153]"CMDCMDCLOSE":[139]TU[178]10[167]4300
3190 [141]100
3200 A[178][197](AN$):B$[178]AN$:CA$[178]B$:[153]"LOAD":DU[178]0
3201 [153]"POKEONON&CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN
3202 FORZ=1TO23:PRINT"&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]":NEXT:PRINT"
3205 :
3210 [159]1,8,9,B$[170]",S,R
3215 INPUT#1,A$:IFA$="LEER"THENCLOSE1:GOTO3500
3220 INPUT#1,AN:FORX=1TOAN:FORY=1TO17
3230 INPUT#1,N$(X,Y):NEXTY:ONTUGOTO3400,3400,3405,3410,3415,3417,3417,3420,3430
3240 NEXTX:CLOSE1:GOTO3500
3300 CL=1:CA$=B$:GOTO90
3400 IFLEFT$(N$(X,TU+1),LEN(E$))=E$THEN1440
3401 GOTO3240
3405 IFLEFT$(N$(X,TU+1),LEN(E$))=E$THEN3600
3406 GOTO3240
3410 A=VAL(E$):B=VAL(N$(X,TU+3)):IFB=AORB>ATHEN3600
3414 GOTO3240
3415 IFLEFT$(N$(X,8),LEN(E$))=E$ORLEFT$(N$(X,9),LEN(E$))=E$THEN3600
3416 GOTO3240
3417 IFLEFT$(N$(X,TU+4),LEN(E$))=E$THEN3600
3418 GOTO3240
3420 A=VAL(E$):B=VAL(N$(X,17)):IFB>AORB=ATHEN3700
3421 GOTO3240
3430 A=VAL(E$):B=VAL(N$(X,17)):IFB>A-1ANDB<A+10ORB=ATHEN3700
3431 GOTO3240
3500 A=VAL(B$):B$="":A=A+1
3501 IFA<10THENB$="00":B$=B$+RIGHT$(STR$(A),1):GOTO3510
3502 IFA<100THENB$="0":B$=B$+RIGHT$(STR$(A),2):GOTO3510
3503 B$=RIGHT$(STR$(A),3)
3510 GETA$:IFA$="_"THEN3530
3515 CA$=B$:IFB$<>EN$THEN3205
3520 PRINT"[151]&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
3521 [153]"POKE&DATEICLOSEENDECLOSE!!!CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN
3525 GETA$:IFA$=""THEN3525
3530 B$=AN$:GOTO1440
3600 IFDU=0THENPRINT"[145][151]&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]":GOTO3620
3601 PRINT"[151]&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
3620 DU[178]1:[153]"ON"N$(X,2):[153]"ON"[166]34)CA$
3630 [137]3240
3700 [139]DU[178]0[167][153]"ONPOKE&CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN":[137]3720
3701 [153]"POKE&CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN
3720 DU=1:PRINT"[145]CASSETTE[160]"CA$"[160]MIT[160]"N$(X,17)"[160]MINUTEN.
3730 [160]1:[137]3500
3800 [139]CL[178]1[175]AN[177]0[167]3810
3803 A$[178]"DASCLOSETITELCLOSEREGISTERCLOSEISTCLOSENOCHCLOSELEERCLOSE!!!":[141]2000:[137]90
3810 [159]1,8,9,"@:TITEL REGISTER,S,W
3811 PRINT#1,UN",":FORX=1TOUN
3812 PRINT#1,ZA$(X)",":PRINT#1,ZB$(X)",":NEXT:CLOSE1:GOTO90
3900 PRINT""SPC(19)"REGISTER[151]":GOSUB3901:GOTO3911
3901 PRINT"[151]"SPC(19)"[207]\\\\\\\\\\\\\\[208]
3902 [153][166]19)"&TITELCLOSECOPIERENTHEN
3903 PRINTSPC(19)"&TITEL[160]TAUSCHEN[167]
3904 [153][166]19)"&TITELCLOSEANSEHENCLOSETHEN
3909 PRINTSPC(19)"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]
3910 [142]
3911 [153]""[166]20)"TITELCLOSECOPIEREN":TU[178]1:LA[178]3:[137]700
4000 [145]TU[137]4001,4005,4008
4001 [139]CL[178]0[167]4011
4002 [139]UN[178]500[167]4012
4003 [137]4100
4005 [139]CL[178]0[167]4011
4006 [139]UN[178]0[167]4010
4007 AJ[178]1:[137]4100
4008 [139]UN[178]0[167]4010
4009 [137]4600
4010 A$[178]"ESCLOSEBEFINDETCLOSESICHCLOSEKEINCLOSETITELCLOSEIMCLOSEREGISTERCLOSE!!!":[141]2000:[137]90
4011 A$[178]"ESCLOSEBEFINDETCLOSESICHCLOSEKEINECLOSECASSETTECLOSEIMCLOSESPEICHERCLOSE!!!":[141]2000:[137]90
4012 A$[178]"ESCLOSEBEFINDENCLOSESICHCLOSEBEREITSCLOSE500CLOSETITELCLOSEIMCLOSEREGISTER !!!":[141]2000:[137]90
4100 [153]"LOAD":[141]100
4101 [153]" POKE(null)\\\\\\\\\\\\\\\\\\\\\\\\\\\\\(null)
4102 PRINT" [151]&WAEHLEN[160]SIE[160]DEN[160]TITEL[160]!!![160][160][160][160][167]
4103 [129]X[178]1[164]AN[170]2:[153]" POKE&CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN":[130]X
4104 [153]" POKE(null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOSQR
4110 PRINT"":FORX=1TOAN
4111 PRINT""N$(X,2):NEXT
4115 PRINT"AUSGANG":A=1
4116 PRINT"
4117 [153]""N$(1,2)
4120 [161]A$:[139]A$[178]""[167]4120
4121 [139]A$[178]"ON"[167]4130
4122 [139]A$[178]""[167]4140
4123 [139]A$[178]"_"[167]AJ[178]0:[137]90
4124 [139]A$[178][199](13)[167]4200
4125 [137]4120
4130 [139]A[178]1[167]4120
4131 A[178]A[171]1
4132 [139]A[170]1[178]AN[170]1[167][153]"":[129]X[178]1[164]A:[153]"";:[130]:[153]""N$(A,2)
4133 [139]A[170]1[178]AN[170]1[167][153]"POKEAUSGANG":[137]4120
4134 [153]"":[129]X[178]1[164]A:[153]"";:[130]:[153]""N$(A,2)
4135 [153]"POKE"N$(A[170]1,2):[137]4120
4140 [139]A[178]AN[170]1[167]4120
4141 A[178]A[170]1
4142 [139]A[178]AN[170]1[167][153]"":[129]X[178]1[164]A[171]1:[153]"";:[130]:[153]"POKE"N$(A[171]1,2)
4143 [139]A[178]AN[170]1[167][153]"AUSGANG":[137]4120
4144 [153]"":[129]X[178]1[164]A[171]1:[153]"";:[130]:[153]"POKE"N$(A[171]1,2)
4145 [153]""N$(A,2):[137]4120
4200 [139]A[178]AN[170]1[167]90
4201 [139]AJ[178]1[167]AJ[178]0:[137]4400
4202 UN[178]UN[170]1:ZA$(UN)[178]N$(A,2):ZB$(UN)[178]CA$:[129]X[178]1[164]16:[151]53280,X:[130]:[137]4120
4300 [153]"LOAD":[153]"POKE&CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN"
4301 [129]Z[178]1[164]23:[153]"POKE&CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN":[130]
4302 [153]"BITTECLOSEWARTENCLOSE!!!
4310 A=LEN(E$):FORX=1TOUN:IFE$<>LEFT$(ZA$(X),A)THENNEXT:GOTO4320
4311 PRINT"TITEL[160]GEFUNDEN[160]!!!
4312 [153]"LOADINGCLOSEDATEI...":B$[178]ZB$(X):[137]1440
4320 [153]"TITELCLOSENICHTCLOSEGEFUNDENCLOSE!!!
4321 PRINT"DRUECKEN[160]SIE[160]EINE[160]TASTE[160]!!!
4322 [161]A$:[139]A$[178]""[167]4322
4323 [137]90
4400 [153]"POKE":E$[178]""
4401 [153]"(null)\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\(null)
4402 PRINT"&KOMMT[160]AUF:[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]
4403 [153]"(null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOSQR
4410 PRINT""SPC(11)E$"+[160]";
4420 GETA$:IFA$=""THEN4420
4430 IFA$="_"THEN90
4435 IFA$=CHR$(13)ANDLEN(E$)>0THEN4480
4436 IFA$=CHR$(20)ANDLEN(E$)>0THEN4470
4440 IFLEN(E$)=21THEN4420
4445 IFASC(A$)>64ANDASC(A$)<91THEN4460
4446 IFASC(A$)>47ANDASC(A$)<58THEN4460
4447 IFA$=" "THENA$="[160]":GOTO4460
4448 IFA$="-"THEN4460
4450 GOTO4420
4460 E$=E$+A$:GOTO4410
4470 E$=LEFT$(E$,LEN(E$)-1):GOTO4410
4480 PRINT"[157][157][160]":
4500 PRINT"[147]":PRINT"[151]&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]"
4501 FORZ=1TO23:PRINT"[151]&[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][167]":NEXT
4502 PRINT"BITTE[160]WARTEN[160]!!!
4510 [129]X[178]1[164]UN:[139]E$[179][177]ZA$(X)[167][130]:[137]4520
4511 ZA$(X)[178]N$(A,2):ZB$(X)[178]CA$:[137]90
4520 [137]4320
4600 A[178]1:TJ[178]0
4601 [153]"LOAD":[153]"POKE&CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN"
4602 [129]Z[178]1[164]23:[153]"POKE&CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSETHEN":[130]
4603 [153]"":[129]X[178]A[164]A[170]19:[153]""ZA$(X):[153]"ON"[166]34)ZB$(X)
4605 [139]ZA$(X[170]1)[178]""[176]X[178]500[167]TJ[178]1:[129]X[178]1[164]2:[130]X:[137]4610
4606 [130]X
4610 [153]"DRUECKENCLOSESIECLOSEEINECLOSETASTECLOSE!!!
4620 GETA$:IFA$=""THEN4620
4621 IFTJ=1THENTJ=0:GOTO90
4622 IFA$="_"THEN90
4623 TJ=0:A=A+20:GOTO4601